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-- BindErrors.mesa; edited by Johnsson on August 30. 1978 9:24 PM 

DIRECTORY 

BcdControlDefs: FROM "bcdcontroldef s". 
BcdDefs: FROM "bcddefs". 
BcdErrorDefs: FROM "bcderrordef s" , 
BcdFileDefs: FROM "bcdf iledef s". 
BcdTabDefs: FROM "bcdtabdef s" . 
BcdTreeDefs: FROM "bcdtreedef s". 
lODefs: FROM "iodefs". 
SegmentDefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" . 
TableDefs: FROM "tabledefs". 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM BcdTabDefs, BcdDefs, BcdErrorDefs, lODefs; 

BindErrors: PROGRAM [data: BcdControlDefs. BinderData] 

IMPORTS BcdTabDefs, lODefs, StreamDefs, TableDefs, TimeDefs 

EXPORTS BcdControlDefs, BcdErrorDefs ■ 

BEGIN 

SubStringDescriptor: TYPE « StringDefs .SubStringDescriptor; 
Substring: TYPE » StringDefs .Substring; 

GetModule: PUBLIC SIGNAL RETURNS [errorMti: MTIndex] « CODE; 
Getlnterface: PUBLIC SIGNAL RETURNS [errorExpi: EXPIndex] = CODE; 
GetSti: PUBLIC SIGNAL RETURNS [errorSti: STIndex] » CODE; 

PrintTextLine: PUBLIC PROCEDURE [i: CARDINAL] « 
BEGIN OPEN StreamDefs. lODefs; 
start, linelndex: Streamlndex; 
stream: StreamHandle <- data.sourcestream; 
char: CHARACTER; 
n: [1..100]; 

start ♦- linelndex <- Normal izelndex[[page:0, byte:i3]; 
FOR n IN [1..100] UNTIL linelndex » [0. 0] 

DO 

linelndex ♦- ModifyIndex[l inelndex, -1]; 

Setlndex[stream, linelndex]; 

IF stream. get[stream] « CR THEN EXIT; 

start ♦■ 1 inelndex; 

ENDLOOP; 
Setlndex[stream, start]; 
FOR n IN [1..100] 

DO 

char ♦- stream. get[stream 
IStreamError => EXIT]; 

SELECT char FROM 

CR. ControlZ => EXIT; 
ENDCASE => WriteChar[char]; 

ENDLOOP; 
WriteChar[CR]; 
RETURN 
END; 

WriteEOL: PROCEDURE • 
BEGIN 

IF ~NewLine[] THEN WriteChar[CR]; 
RETURN 
END; 

Space: PROCEDURE - 
BEGIN 

WriteChar[SP]; 
RETURN 
END; 

ErrorLog: PROCEDURE [class: ErrorClass] ■ 
BEGIN 
IF data.textlndex » BcdControlDefs. NullSourcelndex THEN 

BEGIN 

WriteString[", at "L]; 

Wr iteName[ data. cur rentname]; 

WriteChar['[]; 
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WriteNumber[data.textInclex,[base:8, co1umns:l, unsign8cl:TRUE, zerofill: FALSE]]; 

WriteChar[']]; 

WriteEOL[]; 

Pr i n tTex t Li ne[ data. text Index]; 

END; 
IF class » error THEN 

BEGIN 

data. errors <- TRUE; 

data.errorcount <- data.errorcount + 1; 

END 
ELSE 

BEGIN 

data. warnings ♦- TRUE; 

data.warningcount ^ data.warningcount + 1; 

END; 
IF data. debug THEN 

BEGIN 

WriteString[" Pause to debug"L]; 

[] <r ReadChar[]; 

WriteEOL[]; 

END; 
RETURN 
END; 

Prefix: PROCEDURE [class: ErrorClass] » 
BEGIN 

WriteEOL[]; 

IF class = warning THEN Wri teString["Warning: "L]; 
END; 

WriteNameBase: PROCEDURE[name: NameRecord, s: NameString] » 
BEGIN 

i: CARDINAL; 

offset, length: CARDINAL; 
offset *- name; 
length ^ s.size[naine]; 

IF offset+length > s . string . length THEN RETURN; 
FOR i IN [offset.. offset+MINClength, 100]) DO 

WriteChar[s. string . text[i]] ; 

ENDLOOP; 
RETURN 
END; 

WriteName: PROCEDURE[name: NameRecord] « 
BEGIN 

WriteNameBase[name, LOOPHOLE[TableDef s .TableBounds[ss type]. base]]; 
RETURN 
END; 

WriteVersion: PROCEDURE[v: POINTER TO VersionStamp] « 
BEGIN 

octal: NumberFormat « [base:8, zerof il 1 :FALSE , unsigned:TRUE, columns:l]; 
s: STRING <- [20]; 
IF v.time = [0,0] THEN 

BEGIN WriteString["{Null Version)"L]; RETURN END; 
TimeDef s . AppendDayTime[s , TimeDef s .UnpackDT[v. time]]; 
WriteChar['(]; 
WriteString[s]; 
Space[]; 

WriteNumber[v. net, octal]; WriteChar[ '#]; 
WriteNumber [v. host .octal]; WriteChar[ '#]; 
IF V. zapped THEN WriteString[" ZappedT'L]; 
WriteChar[')]; 
RETURN 
END; 

WriteHti: PROCEDURE[hti : HTIndex] - 
BEGIN 

ss: SubStringDescriptor; 
i: CARDINAL; 

IF hti « HTNull THEN RETURN; 
SubStringForHash[@ss,hti]; 
FOR i IN [ss. offset. .ss.offset+ss. length) DO 

WriteChar[ss.base[i]]; 

ENDLOOP; 
RETURN 
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END; 

HtiForSti: PROCEDURE[sti : STIndex] RETURNS [HTIndex] ■ 
BEGIN 

IF sti " STNull THEN RETURN[HTNun ] ; 
RETURN[(TableDefs.TableBounds[sttype].bas8+sti).hti] 
END; 

InterfaceName: PROCEDURE[expi : EXPIndex] RETURNS [NameRecord] « 
BEGIN 

IF expi « EXPNun THEN RETURN[NunName] ; 
RETURN[ ( Tab 1 eDef s. Tab leBounds[exp type] .base+expi) .name] 
END; 

ModuleName: PROCEDURE[mti : MTIndex] RETURNS [NameRecord] « 
BEGIN 

IF mti =« MTNun THEN RETURN[NunName]; 
RETURN[(TableDefs.TableBounds[mttype].base+mti) .name] * 
END; 

Error: PUBLIC PROCEDURE [class: ErrorClass, s: STRING] - 
BEGIN 

Pref ix[class]; 
WriteString[s]; 
ErrorLog[class]; 
RETURN 
END; 

ErrorSti: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, sti: STIndex] « 
BEGIN 

Pref ix[c1ass]; 

WriteHti[HtiForSti[sti]]; Space[]; WriteString[s]; 
ErrorLog[class]; 
RETURN 
END; 

ErrorHti: PUBLIC PROCEDURE [class: ErrorClass. s: STRING, hti: HTIndex] - 
BEGIN 

sti: STIndex; 
Pref ix[cl ass]; 

WriteHti[hti]; Space[]; WriteString[s] ; 
sti ^ SIGNAL GetSti; 
IF sti # STNull THEN 

BEGIN 

WriteString[" (in "L]; 

WriteHti [HtiForSti [sti]]; 

WriteChar[')]; 

END; 
ErrorLog[class]; 
RETURN 
END; 

ErrorName: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, name: NameRecord] 
BEGIN 

Pref ix[class]; 

WriteName[name] ; Space[]; WriteString[s]; 
ErrorLog[class]; 
RETURN 
END; 

Errorltem: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, i: CARDINAL] « 
BEGIN 

sti: STIndex; 
expi: EXPIndex; 
Pref ix[class]; 

WriteString["Item "L]; WriteDecimal[i] ; 
expi *- SIGNAL Getlnterf ace; 
IF expi If EXPNull THEN 

BEGIN 

WriteString[" in interface "L]; 

WriteName[InterfaceName[expi]]; 

END; 
Space[]; WriteString[s]; 
sti <- SIGNAL GetSti; 
IF sti ff STNull THEN 

BEGIN 
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WriteString[" (in "L]; 

WriteHti[HtiForSti[sti]]; 

WriteChar[')]; 

END; 
ErrorLog[class]; 
RETURN 
END; 

ErrorModule: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, mti: MTIndex] - 
BEGIN 

sti: STIndex; 
Pref ix[c1ass]; 

WriteName[ModuleName[niti]]; Space[]; 
WriteString[s]; 
sti *- SIGNAL GetSti; 
IF sti # STNun THEN 

BEGIN 

WriteString[" (in "L]; 

WriteHti[HtiForSti[sti]]; 

WriteChar[')]; 

END; 
ErrorLog[class]; 
RETURN 
END; 

Errorlnterface: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, name: NameRecord, ep: CARDINAL] 
BEGIN 

mti: MTIndex; 
Pref ix[cgass]; 

WriteString["Item "L]; WriteDecimal[ep]; 
WriteString[" in interface "L]; 

IF name = NullName THEN Wri teString["(unknown)"L] ELSE WriteName[name]; 
Space[]; WriteString[s]; 
mti <- SIGNAL GetModule; 
IF mti ^ MTNun THEN 

BEGIN 

WriteString[" (in "L]; 

WriteName[ModuleName[mti]]; 

WriteChar[')]; 

END; 
ErrorLog[c1ass]; 
RETURN 
END; 

ErrorNameBase: PUBLIC PROCEDURE [ 

class: ErrorClass, s: STRING, name: NameRecord, base: NameString] « 

BEGIN 

Pref ix[class]; 

WriteNameBase[name, base]; Space[]; 

WriteString[s]; 

ErrorLog[class]; 

RETURN 

END; 

ErrorFile: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, fti: FTIndex] - 
BEGIN 

ftb: TableDefs.TableBase = TableDefs.TableBounds[f ttype].base; 
Pref ix[class]; 

WriteName[(ftb+fti) .name]; Space[]; 
WriteString[s]; 
ErrorLog[class]; 
RETURN 
END; 

Error2Files: PUBLIC PROCEDURE [class: ErrorClass. s: STRING, ftl. ft2: FTIndex] ■ 
BEGIN 

ftb: TableDefs.TableBase » TableDefs.TableBounds[f ttype].base; 
Pref ix[class]; 

WriteName[(f tb+f tl) . name]; WriteVersion[@(f tb+ftl) .version]; 
Space[]; WriteString[s]; Space[]; 

Wr i teName[(f tb+f t2). name]; WriteVersion[@(f tb+f t2) .version]; 
ErrorLog[class]; 
RETURN 
END; 

END... 
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